Program PruebaDeTipos;

Uses
    Crt;
Type
        FechaString = String[8];
        String30 = String[30];
               
       Pedido=Record
             Numero:Word;
             Fecha:FechaString;
             Electrodomestico:String30;
        End;
        
        FilePedidos = File of Pedido;

Function FileExists(Name : String) : boolean;
Var  aFile : File;
Begin
  {$I-}
  Assign (aFile,Name);
  Reset (aFile);
  {$I+}
  FileExists:=(IOResult=0) and (Name<>'');
  Close (aFile);
End;


Procedure OpenBinaryFile(Var FileAsociated:File; FileName : String);
Begin
    Assign(FileAsociated,FileName);
    If (FileExists(FileName)) Then
        Reset(FileAsociated)
    Else
        Rewrite(FileAsociated);
End;

Procedure OpenFilePedidos(Var FileAsociated:FilePedidos);
Const
    FileName = 'Pedidos.dat';
Begin
    OpenBinaryFile(FileAsociated,FileName);
End;

Var
    Archivo: FilePedidos;
    UnRegistro: Pedido;
Begin
    ClrScr;
    OpenFilePedidos(Archivo);
    Read(Archivo,UnRegistro);
    Writeln(UnRegistro.Numero);
    Writeln(UnRegistro.Electrodomestico);
    Close(Archivo);
    Readln;
End.
